Option Explicit
Sub D_Sample031()
    Dim myFileName As String
    myFileName = ThisWorkbook.Path & "\temp.xls"     'Nɮ
    'ǳƨ즹
    Workbooks.Open Filename:=myFileName, ReadOnly:=True
End Sub

